home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 123 / af123a.adf / Unpack Utils1 < prev    next >
Encoding:
Text File  |  1999-03-05  |  1.1 KB  |  55 lines
  1. requestchoice >env:ReqChGG TITLE "Amiga Format Issue 123" BODY "Do you want to install this game to a floppy disk or a hard drive?" GADGETS "Floppy disk|Hard drive"
  2. if warn
  3. skip 5
  4. endif
  5. if VAL $ReqChGG EQ 1
  6. skip 1
  7. endif
  8. if VAL $ReqChGG EQ 0
  9. skip 4
  10. endif
  11.  
  12. lab 1
  13. endif
  14. requestfile DRAWERSONLY TITLE "Select a floppy disk to install to"  >env:pathname
  15. if warn
  16. skip 5
  17. endif
  18. if VAL $ReqChGG EQ 2
  19. skip 5
  20. endif
  21.  
  22. lab 2
  23. search env:pathname "af123" >nil:
  24. if warn
  25. info $pathname > env:check
  26. skip 3
  27. endif
  28. requestfile DRAWERSONLY TITLE "Select a floppy disk that isn't a coverdisk!"  >env:pathname
  29. if warn
  30. skip 5
  31. endif
  32. skip 2 back
  33.  
  34. lab 3
  35. endif
  36. requestchoice >env:ReqChGG TITLE "Please confirm this disk is empty" BODY "In order to install, this disk must be empty." GADGETS "Continue, this disk is empty|Cancel"
  37. if VAL $ReqChGG EQ 0 
  38. skip 5
  39. endif
  40. cd $pathname >nil:
  41. AF123a:unlzx -a -q -bi24 x AF123a:af123a1.lzx ""
  42. skip 5
  43.  
  44. lab 4
  45. endif
  46. requestfile DRAWERSONLY TITLE "Select a drawer to install to" >env:pathname
  47. if warn
  48. skip 5
  49. endif
  50. cd $pathname >nil:
  51. AF123a:unlzx -a -q -bi24 x AF123a:af123a1.lzx ""
  52.  
  53. lab 5
  54. endif
  55.